home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018c.dsk / PAL.33515.SMITH.MAR.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  26 lines

  1. 10  REM PAL.33515.SMITH.MAR.83.A
  2. 20  REM ========================
  3. 30  REM * RESET HIMEM QUESTION
  4. 40  REM * BY SANDY SMITH
  5. 50  REM * SUBMITTED TO SOFTDISK
  6. 60  REM * MARCH 1983
  7. 70  REM ========================
  8. 100  REM * PAGE 1
  9. 110  TEXT : HOME : PRINT "TO: SOFTPAL PROGRAMMING EXPERTS": PRINT : PRINT "SUBJECT: RESETTING HIMEM"
  10. 120  VTAB 6: PRINT "MANY HIRES UTILITIES SUCH AS "; CHR$(34);"GRAPHICS": PRINT : PRINT "MAGICIAN"; CHR$(34);" RECOMMEND THAT YOU CHANGE"
  11. 130  PRINT : PRINT "HIMEM TO PROTECT THE HIRES PAGES AND/OR": PRINT : PRINT "MACHINE LANGUAGE ROUTINES WHICH ARE": PRINT : PRINT "NEEDED TO REPRODUCE YOUR PICTURES OR TO": PRINT : PRINT "ANIMATE THEM."
  12. 140  PRINT : PRINT : PRINT "THE APPLESOFT REFERENCE MANUAL SAYS": PRINT : PRINT "(ON PAGE 44): "; CHR$(34);"HIMEM: IS NOT RESET BY": GOSUB 1010
  13. 200  REM * PAGE 2
  14. 210  HOME : VTAB 2: PRINT "BY CLEAR, RUN, NEW, DEL, CHANGING OR": PRINT : PRINT "ADDING A PROGRAM LINE, OR RESET.  HIMEM:"
  15. 220  PRINT "IS RESET BY RESET CTRL B RETURN, WHICH": PRINT : PRINT "ALSO ERASES ANY STORED PROGRAM."; CHR$(34)
  16. 230  PRINT : PRINT : PRINT "I DON'T WANT TO DO A 'RESET CTRL B": PRINT : PRINT "RETURN' FROM MY PROGRAM, BUT I WOULD": PRINT : PRINT "LIKE TO RESET HIMEM TO ITS ORIGINAL": PRINT : PRINT "VALUE BEFORE MY PROGRAM ENDS.": GOSUB 1010
  17. 300  REM * PAGE 3
  18. 310  HOME : VTAB 2: PRINT "SHOULD I INSERT ANOTHER HIMEM: STATEMENT ": PRINT "JUST PRIOR TO THE END OF MY PROGRAM?"
  19. 320  PRINT : PRINT "OR IS THERE ANOTHER METHOD THAT COULD": PRINT : PRINT "OR SHOULD BE USED?"
  20. 330  PRINT : PRINT : PRINT "ANY SOFTPAL HELP WILL BE APPRECIATED."
  21. 340  PRINT : PRINT : HTAB 11: PRINT "SANDY SMITH": HTAB 11: PRINT "2052 BRENDLA ROAD": HTAB 11: PRINT "CLEARWATER, FL 33515"
  22. 900  REM * RETURN TO PAL.MENU
  23. 910  VTAB 23: HTAB 4: INVERSE : PRINT "PRESS <SPACE BAR> FOR THE PAL.MENU": NORMAL : WAIT  -16384,128: POKE  -16368,0
  24. 920  PRINT  CHR$(4);"RUN PAL.MENU"
  25. 1000  REM * PRESS KEY ROUTINE *
  26. 1010  VTAB 23: HTAB 6: INVERSE : PRINT "PRESS <SPACE BAR> TO CONTINUE": NORMAL : WAIT  -16384,128: POKE  -16368,0: RETURN